home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 May
/
EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso
/
earcd
/
util
/
misc
/
euraconu.lha
/
EuraConfig
/
Update
< prev
next >
Wrap
Text File
|
1996-12-23
|
3KB
|
135 lines
; ************************************************
; *
; * EuraConfig - HD Update Script
; *
; * $VER: Update-EuraConfig 2.00
; *
; * Script written by Richard Körber
; *
; ************************************************
;------- Prompts ---------------------------------
;
(set DestDirPrompt
(cat "Wohin wurde EuraConfig installiert?\n"
"(Bitte mit Unterverzeichnis angeben!)"
)
)
(set Ask020Prompt
(cat "Wurde die für den 68020 und höher\n"
"optimierte Version installiert?"
)
)
(set CopyDocPrompt
( "Kopiere die Anleitung.")
)
(set PatchPrompt
( "Generiere das Update.")
)
;------- Help ------------------------------------
;
(set DestDirHelp
(cat "Wählen Sie das Zielverzeichnis aus, z. B.\n"
"'Work:EuraConfig'."
)
)
(set CopyDocHelp
(cat "Welche Teile der Anleitung sollen\n"
"aktualisiert werden?"
)
)
(set Ask020Help
(cat "WICHTIG: Geben Sie hier unbedingt an,\n"
"welche Version Sie installiert haben.\n\n"
"Wenn Ihre Angabe nicht stimmt, kann das\n"
"Update nicht durchgeführt werden!"
)
)
;------- Messages --------------------------------
;
(set StartupMsg
(cat "\nWillkommen zum\n\n"
"EuraConfig Update\n\n\n"
"von Version 2.1 auf Version 2.2"
)
)
(set AllrightMsg
(cat "\nEuraConfig ist jetzt aktualisiert.\n\n"
"Bitte besorgen Sie sich bei nächster\n"
"Gelegenheit das vollständige Archiv,\n"
"um auch eine aktuelle Version der\n"
"Anleitung zu erhalten."
)
)
(set CPU000 "68000, 68010")
(set CPU020 "68020, 68030, 68040, 68060")
;------- Files -----------------------------------
;
(set Patch "spatch")
(set EuraCfg000 "EuraConfig.pch")
(set EuraCfg020 "EuraConfig_020.pch")
(set EuraCfg "EuraConfig")
(set EuraHistory "History.txt")
;------- Installation ----------------------------
;
(message StartupMsg) ;-------- Welcome the user
(set DestDir ;-------- Ask dir to create drawer into
(askdir
(prompt DestDirPrompt)
(help DestDirHelp)
(default "Work:EuraConfig")
)
)
(set @default-dest (DestDir))
(set usedcpu (+ (database "cpu"))) ; Is a 68020+ available?
(if (< usedcpu 68020)
(set usedcpu 0)
(set usedcpu 1)
)
(if (= @user-level 2)
(set CPUVer
(askchoice
(prompt Ask020Prompt)
(help Ask020Help)
(choices CPU000 CPU020)
(default usedcpu)
)
)
(set CPUVer usedcpu)
)
(set Targetfile (tackon DestDir EuraCfg))
(if (= CPUVer 0)
(set Cmd (cat Patch " -o" Targetfile " -p" EuraCfg000 " " Targetfile))
(set Cmd (cat Patch " -o" Targetfile " -p" EuraCfg020 " " Targetfile))
)
(run Cmd (prompt PatchPrompt))
(copyfiles ; Copy the documentation
(prompt CopyDocPrompt)
(help CopyDocHelp)
(source "")
(choices EuraHistory)
(dest DestDir)
(confirm)
)
(message AllrightMsg)
;------- Done ------------------------------------